home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / unixport / sys-init.lsp < prev   
Encoding:
Text File  |  1989-10-28  |  160 b   |  6 lines
  1. (in-package 'si)
  2. (let ((mss (si::string-concatenate *system-directory*
  3.                      "message")))
  4.   (if (probe-file mss)
  5.       (system (format nil "cat ~a " mss))))
  6.